#lang racket

;1D-TABLE-TEST-----------------------------------------------------------------------------------

;(require "1d-table.rkt")

;(define t (make-table))

;(insert! 'a 1 t)

;(insert! 'b 2 t)

;(insert! 'b 3 t)

;(lookup 'b t)

;(print-table t)

;2D-TABLE-TEST-----------------------------------------------------------------------------------

;(require "2d-table.rkt")

;(define t (make-table))

;(insert! 'a 'x 1 t)

;(insert! 'a 'y 2 t)

;(insert! 'b 'x 3 t)

;(insert! 'b 'y 4 t)

;(lookup 'b 'x t)

;(print-table t)

;LOCAL-2D-TABLE-TEST-----------------------------------------------------------------------------

(require "local-2d-table.rkt")

(put 'a 'x 1)

(put 'a 'y 2)

(put 'b 'x 3)

(put 'b 'y 4)

(get 'b 'x)

(print-table)